home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ham Radio 2000
/
Ham Radio 2000.iso
/
ham2000
/
logs
/
logbook
/
dxcc5b.prg
< prev
next >
Wrap
Text File
|
1990-05-04
|
2KB
|
93 lines
*:*********************************************************************
*:
*: Program: DXCC5B.PRG
*:
*: System: PC-HAM Logbook
*: Author: Joe Kasser G3ZCZ
*: Copyright (c) 1990, Joe Kasser
*: Last modified: 04/27/90 13:55
*:
*: Called by: DXCC.PRG
*:
*: Calls: DXCC5BGN.PRG
*: : DXCCMB.PRG
*: : DXCCPRNT.PRG
*:
*: Documented 05/04/90 at 13:50 SNAP! version 3.12f
*:*********************************************************************
*DXCC5B GENERATES A 5B DXCC QSLED LIST VERSION 860421/871210
* BY JOE KASSER G3ZCZ (c) 1985
* PUBLIC thisband, BLANK
STORE logbook TO tlogbook
IF FILE (tlogbook+'.DBF')
CLEAR
@ 5,1 SAY ' '
STORE ' ' TO pf
ACCEPT 'Do you want hard copy (Y/N) ? ' TO pf
STORE ' ' TO choice
IF pf = 'Y'
@ 8,1 SAY ' '
ACCEPT 'All PXs,Worked/QSL-d,or QSL-d (P,W,Q) ? ' TO choice
ENDIF
* USE &logbook
BLANK = ' '
STORE '10' TO thisband
STORE thisband + 'DXCC' TO dxcc
?
? 'Now starting to process ', thisband
DO dxcc5bgn
DO dxccmb
IF pf = 'Y'
DO dxccprnt
ENDIF
STORE '15' TO thisband
STORE thisband + 'DXCC' TO dxcc
?
? 'Now starting to process ', thisband
DO dxcc5bgn
DO dxccmb
IF pf = 'Y'
DO dxccprnt
ENDIF
STORE '20' TO thisband
STORE thisband + 'DXCC' TO dxcc
?
? 'Now starting to process ', thisband
DO dxcc5bgn
DO dxccmb
IF pf = 'Y'
DO dxccprnt
ENDIF
STORE '40' TO thisband
STORE thisband + 'DXCC' TO dxcc
?
? 'Now starting to process ', thisband
DO dxcc5bgn
DO dxccmb
IF pf = 'Y'
DO dxccprnt
ENDIF
STORE '80' TO thisband
STORE thisband + 'DXCC' TO dxcc
?
? 'Now starting to process ', thisband
DO dxcc5bgn
DO dxccmb
IF pf = 'Y'
DO dxccprnt
ENDIF
RELEASE pf
ELSE
? 'ERROR, LOGBOOK IS NOT ON DEFAULT DRIVE'
ENDIF
RELEASE tlogbook, thisband, BLANK
RETURN
*: EOF: DXCC5B.PRG